home *** CD-ROM | disk | FTP | other *** search
- ; a2 - variable address
- ; a1 - src list
- ; d0 - count
- ; a3 - dest list
- ; a0 - quote address
-
- xdef _MapList
-
- _MapList move.w d0,d2 ; count
- move.l a3,-(a7)
- move.w -4(a3),d0
- cmp.w -2(a1),d0
- bmi.s .1
- move.w -2(a1),-2(a3)
- beq.s .1
- subq.l #1,d2
- ; move.l d0,d1
- .l: move.l (a1)+,(a2)
- movem.l d2/a0-a3,-(a7)
- jsr (a0)
- movem.l (a7)+,d2/a0-a3
- move.l d0,(a3)+
- dbra d2,.l
- .1: move.l (a7)+,d0
- rts
-